<% varName  = "Ramesh Thiruchelvam" %>
<% varEmail = "ramesh_thiru@yahoo.com" %>

<% 
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
    
Conn.Open "DBQ=" & Server.Mappath("db.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
    
SQL = "SELECT fldName, fldEmail FROM tbl"
    
rs.Open SQL, Conn, 1, 3
    
rs.AddNew
rs.Fields("fldName") = varName
rs.Fields("fldEmail") = varEmail
rs.Update
%>
